home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / util / pack / xpk_Develop.lha / xpk_Develop / Include / Modula2 / XpkMasterD.def next >
Encoding:
Modula Definition  |  1998-11-09  |  14.1 KB  |  327 lines
  1. (*#-- BEGIN AutoRevision header, please do NOT edit!
  2. *
  3. * $VER: XpkMasterD.def 1.4 (28.10.1998)
  4. * Auth: T.B. <tonyiommi@geocities.com>
  5. *
  6. * Desc: XPKMaster Defs for xpk 4.25 (27.01.1998) by SDI
  7. * Reqs: AMIGA OS 2.0
  8. * Lang: MODULA-2
  9. * Comp: Cyclone © by M. Timmermans
  10. * 
  11. *-- END AutoRevision header --*)
  12.  
  13. DEFINITION MODULE XpkMasterD; (*$ Implementation- *)
  14.  
  15. FROM SYSTEM IMPORT ADDRESS,LONGSET;
  16. FROM UtilityD IMPORT tagUser;
  17.  
  18. TYPE  StrPtr = ADDRESS;
  19.  
  20. (* --- The packing/unpacking tags --- *)
  21. (* (TRUE) or (FALSE) mean the default value given by xpkmaster.library *)
  22.  
  23. CONST
  24.  tagBase=tagUser + ORD('X')*256 + ORD('P');
  25.  
  26. (* Caller must supply ONE of these to tell Xpk#?ack where to get data from *)
  27.  inName =tagBase+1; (* Process an entire named file *)
  28.  inFH   =tagBase+2; (* File handle - start from current position. If packing partial file, must also supply InLen *)
  29.  inBuf  =tagBase+3; (* Single unblocked memory buffer. Must also supply InLen *)
  30.  inHook =tagBase+4; (* Call custom Hook to read data. Must also supply InLen, when hook cannot do! (not for XPK unpacking) *)
  31.  
  32. (* Caller must supply ONE of these to tell Xpk#?ackFile where to send data to *)
  33.  outName    =tagBase+10H; (* Write (or overwrite) this data file *)
  34.  outFH      =tagBase+11H; (* File handle - write from current position on *)
  35.  outBuf     =tagBase+12H; (* Unblocked buffer - must also supply OutBufLen *)
  36.  getOutBuf  =tagBase+13H; (* Master allocates OutBuf - ti_Data points to buf ptr *)
  37.  outHook    =tagBase+14H; (* Callback Hook to get output buffers *)
  38.  
  39. (* --- Other tags for Pack/Unpack --- *)
  40.  inLen          =tagBase+20H; (* Length of data in input buffer *)
  41.  outBufLen      =tagBase+21H; (* Length of output buffer *)
  42.  getOutLen      =tagBase+22H; (* ti_Data points to long to receive OutLen *)
  43.  getOutBufLen   =tagBase+23H; (* ti_Data points to long to receive OutBufLen *)
  44.  password       =tagBase+24H; (* Password for de/encoding *)
  45.  getError       =tagBase+25H; (* ti_Data points to buffer for error message *)
  46.  outMemType     =tagBase+26H; (* Memory type for output buffer *)
  47.  passThru       =tagBase+27H; (* Bool: Pass through unrecognized formats on unpack *)
  48.  stepDown       =tagBase+28H; (* Bool: Step down pack method if necessary *)
  49.  chunkHook      =tagBase+29H; (* Call this Hook between chunks *)
  50.  packMethod     =tagBase+2AH; (* Do a FindMethod before packing *)
  51.  chunkSize      =tagBase+2BH; (* Chunk size to try to pack with *)
  52.  packMode       =tagBase+2CH; (* Packing mode for sublib to use *)
  53.  noClobber      =tagBase+2DH; (* Don't overwrite existing files *)
  54.  ignore         =tagBase+2EH; (* Skip this tag *)
  55.  taskPri        =tagBase+2FH; (* Change priority for (un)packing *)
  56.  fileName       =tagBase+30H; (* File name for progress report *)
  57.  shortError     =tagBase+31H; (* !!! obsolete !!! *)
  58.  packersQuery   =tagBase+32H; (* Query available packers *)
  59.  packerQuery    =tagBase+33H; (* Query properties of a packer *)
  60.  modeQuery      =tagBase+34H; (* Query properties of packmode *)
  61.  lossyOK        =tagBase+35H; (* Lossy packing permitted? (FALSE) *)
  62.  noCRC          =tagBase+36H; (* Ignore checksum *)
  63.  
  64. (* tags added for xfdmaster support (version 4 revision 25) *)
  65.  key16        =tagBase+37H; (* 16 bit key (unpack only) *)
  66.  key32        =tagBase+38H; (* 32 bit key (unpack only) *)
  67.  
  68. (* tag added to support seek (version 5) *)
  69.  needSeek    =tagBase+39H; (* turn on Seek function usage *)
  70.  
  71. (* preference depending tags added for version 4 - their default value may depend on preferences, see xpk/xpkprefs.h for more info *)
  72.  useXfdMaster  =tagBase+40H; (* Use xfdmaster.library (FALSE) *)
  73.  useExternals  =tagBase+41H; (* Use packers in extern dir (TRUE) *)
  74.  passRequest   =tagBase+42H; (* automatic password req.? (FALSE) *)
  75.  preferences   =tagBase+43H; (* use prefs semaphore ? (TRUE) *)
  76.  chunkReport   =tagBase+44H; (* automatic chunk report ? (FALSE) *)
  77.  
  78. (* tags tagBase+0x50) to tagBase+0x69) are for XpkPassRequest -- see below *)
  79.  
  80.  margin =256;   (* Safety margin for output buffer  *)
  81.  
  82. (* --- The hook function interface --- *)
  83. (* Message passed to InHook and OutHook as the ParamPacket *)
  84. TYPE
  85.  IOMsgPtr=POINTER TO IOMsg;
  86.  IOMsg=RECORD
  87.   type      :LONGINT;   (* Read/Write/Alloc/Free/Abort*)
  88.   ptr       :ADDRESS;   (* The mem area to read from/write to *)
  89.   size      :LONGINT;   (* The size of the read/write *)
  90.   ioError,  (* The IoErr() that occurred *)
  91.   reserved, (* Reserved for future use *)
  92.   private1, (* Hook specific, will be set to 0 by *)
  93.   private2, (* master library before first use *)
  94.   private3,
  95.   private4  :LONGINT;
  96.  END;
  97.  
  98. (* The values for XpkIoMsg->Type *)
  99. CONST
  100.  ioRead   =1;
  101.  ioWrite  =2;
  102.  ioFree   =3;
  103.  ioAbort  =4;
  104.  ioGetbuf =5;
  105.  ioSeek   =6;
  106.  ioTotSize=7;
  107.  
  108. (* --- The progress report interface --- *)
  109.  
  110. (* Passed to ChunkHook as the ParamPacket *)
  111. TYPE
  112.  ProgressPtr=POINTER TO Progress;
  113.  Progress=RECORD
  114.   type          :LONGINT;   (* Type of report: start/cont/end/abort *)
  115.   packerName,               (* Brief name of packer being used *)
  116.   packerLongName,           (* Descriptive name of packer being used *)
  117.   activity,                 (* Packing/unpacking message *)
  118.   fileName      :StrPtr;    (* Name of file being processed, if available *)
  119.   cCur,                     (* Amount of packed data already processed *)
  120.   uCur,                     (* Amount of unpacked data already processed *)
  121.   uLen,                     (* Amount of unpacked data in file *)
  122.   cf,                       (* Compression factor so far *)
  123.   done,                     (* Percentage done already *)
  124.   speed         :LONGINT;   (* Bytes per second, from beginning of stream *)
  125.   reserved      :ARRAY[1..8] OF LONGINT;    (* For future use *)
  126.  END;
  127.  
  128. CONST
  129.   progStart =1;
  130.   progMID   =2;
  131.   progEnd   =3;
  132.  
  133. (* --- The file info block --- *)
  134. TYPE
  135.  FibPtr = POINTER TO Fib;
  136.  Fib=RECORD
  137.   type,         (* Unpacked, packed, archive? *)
  138.   uLen,         (* Uncompressed length *)
  139.   cLen,         (* Compressed length *)
  140.   nLen,         (* Next chunk len *)
  141.   uCur,         (* Uncompressed bytes so far *)
  142.   cCur,         (* Compressed bytes so far *)
  143.   id            :LONGINT;                   (* 4 letter ID of packer *)
  144.   packer        :ARRAY[0..4] OF CHAR;       (* 4 letter name of packer *)
  145.   subVersion,                               (* Required sublib version *)
  146.   masVersion    :INTEGER;                   (* Required masterlib version *)
  147.   flags         :LONGSET;                   (* Password *)
  148.   head          :ARRAY[0..15] OF SHORTCARD; (* First 16 bytes of orig. file *)
  149.   ratio         :LONGINT;                   (* Compression ratio *)
  150.   reserved      :ARRAY[0..7] OF LONGINT;    (* For future use *)
  151.  END;
  152.  
  153. CONST
  154.  typeUnpacked =0; (* Not packed *)
  155.  typePacked   =1; (* Packed file *)
  156.  typeArchive  =2; (* Archive *)
  157.  
  158.  flagsPassword  = 1; (* Password needed *)
  159.  flagsNoSeek    = 2; (* Chunks are dependent *)
  160.  flagsNonSTD    = 4; (* Nonstandard file format *)
  161.  
  162.  (* defines added for xfdmaster support (version 4 revision 25) *)
  163.  flagsKey16    = 8; (* 16 bit key - for decrunching *)
  164.  flagsKey32    =16; (* 32 bit key - for decrunching *)
  165.  
  166. (* --- The error messages --- *)
  167.   errOK         =0;
  168.   errNoFunc     =-1;    (* This function not implemented *)
  169.   errNoFiles    =-2;    (* No files allowed for this function *)
  170.   errIoErrIn    =-3;    (* Input error happened *)
  171.   errIoErrOut   =-4;    (* Output error happened *)
  172.   errChecksum   =-5;    (* Check sum test failed *)
  173.   errVersion    =-6;    (* Packed file's version newer than lib *)
  174.   errNoMem      =-7;    (* Out of memory *)
  175.   errLibInUse   =-8;    (* For not-reentrant libraries *)
  176.   errWrongForm  =-9;    (* Was not packed with this library *)
  177.   errSmallBuf   =-10;   (* Output buffer too small *)
  178.   errLargeBuf   =-11;   (* Input buffer too large *)
  179.   errWrongMode  =-12;   (* This packing mode not supported *)
  180.   errNeedPassWD =-13;   (* Password needed for decoding *)
  181.   errCorruptPKD =-14;   (* Packed file is corrupt *)
  182.   errMissingLib =-15;   (* Required library is missing *)
  183.   errBadParams  =-16;   (* Caller's TagList was screwed up *)
  184.   errExpansion  =-17;   (* Would have caused data expansion *)
  185.   errNoMethod   =-18;   (* Cannot find requested method *)
  186.   errAborted    =-19;   (* Operation aborted by user *)
  187.   errTruncated  =-20;   (* Input file is truncated *)
  188.   errWrongCPU   =-21;   (* Better CPU required for this library *)
  189.   errPacked     =-22;   (* Data are already XPacked *)
  190.   errNotPacked  =-23;   (* Data not packed *)
  191.   errFileExists =-24;   (* File already exists *)
  192.   errOldMastlib =-25;   (* Master library too old *)
  193.   errOldSUBLIB  =-26;   (* Sub library too old *)
  194.   errNoCrypt    =-27;   (* Cannot encrypt *)
  195.   errNoInfo     =-28;   (* Can't get info on that packer *)
  196.   errLossy      =-29;   (* This compression method is lossy *)
  197.   errNoHardware =-30;   (* Compression hardware required *)
  198.   errBadHardware=-31;   (* Compression hardware failed *)
  199.   errWrongPW    =-32;   (* Password was wrong *)
  200.   errUnknown    =-33;   (* unknown error cause *)
  201.   errReqTimeOut =-34;        (* password request reached time out *)
  202.  
  203.   errMsgSize    =80;    (* Maximum size of an error message *)
  204.  
  205. (* --- The XpkQuery() call --- *)
  206. TYPE
  207.  PackerInfoPtr=POINTER TO PackerInfo;
  208.  PackerInfo=RECORD
  209.   name          :ARRAY[0..23] OF CHAR;  (* Brief name of the packer *)
  210.   longName      :ARRAY[0..31] OF CHAR;  (* Full name of the packer *)
  211.   description   :ARRAY[0..79] OF CHAR;  (* One line description of packer *)
  212.   flags         :LONGSET;               (* Defined below *)
  213.   maxChunk      :LONGINT;               (* Max input chunk size for packing *)
  214.   defChunk      :LONGINT;               (* Default packing chunk size *)
  215.   defMode       :INTEGER;               (* Default mode on 0..100 scale *)
  216.  END;
  217.  
  218. (* --- Defines for Flags --- *)
  219. CONST
  220.   pkChunk   =00001H; (* Library supplies chunk packing *)
  221.   pkStream  =00002H; (* Library supplies stream packing *)
  222.   pkArchive =00004H; (* Library supplies archive packing *)
  223.   upChunk   =00008H; (* Library supplies chunk unpacking *)
  224.   upStream  =00010H; (* Library supplies stream unpacking *)
  225.   upArchive =00020H; (* Library supplies archive unpacking *)
  226.   hookio    =00080H; (* Uses full Hook I/O *)
  227.   checking  =00400H; (* Does its own data checking *)
  228.   prereadhdr=00800H; (* Unpacker pre-reads the next chunkhdr *)
  229.   encryption=02000H; (* Sub library supports encryption *)
  230.   needpasswd=04000H; (* Sub library requires encryption *)
  231.   modes     =08000H; (* Sub library has different modes *)
  232.   lossy     =10000H; (* Sub library does lossy compression *)
  233.   noSeek    =20000H; (* unpacker does not support seeking *)
  234.  
  235. TYPE
  236.  ModePtr=POINTER TO Mode;
  237.  Mode=RECORD
  238.   next          :ModePtr;   (* Chain to next descriptor for ModeDesc list *)
  239.   upto,                     (* Maximum efficiency handled by this mode *)
  240.   flags         :LONGSET;   (* Defined below *)
  241.   packMemory,               (* Extra memory required during packing *)
  242.   unpackMemory,             (* Extra memory during unpacking *)
  243.   packSpeed,                (* Approx packing speed in K per second *)
  244.   unpackSpeed   :LONGINT;   (* Approx unpacking speed in K per second *)
  245.   ratio,                    (* CF in 0.1% *)
  246.   chunkSize     :INTEGER;   (* Desired chunk size in K (!!) for this mode *)
  247.   description   :ARRAY[0..9] OF CHAR;   (* 7 character mode description *)
  248.  END;
  249.  
  250. (* --- Defines for XpkMode.Flags --- *)
  251. CONST
  252.  a3000Speed =1; (* Timings on old environment, obsolete *)
  253.  noCPU      =2; (* Packing not heavily CPU dependent *)
  254.  upNoCPU    =4; (* Unpacking... (i.e. hardware modes) *)
  255.  
  256.  MaxPackers =100;
  257.  
  258. TYPE
  259.  PackerListPtr=POINTER TO PackerList;
  260.  PackerList=RECORD
  261.   numPackers:LONGINT;
  262.   packer    :ARRAY[0..MaxPackers-1],[0..5] OF CHAR;
  263.  END;
  264.  
  265. (* --- The XpkSeek() call (library version 5) --- *)
  266. CONST
  267.  seekBeginning    = -1;
  268.  seekCurrent    = 0;
  269.  seekEnd    = 1;
  270.  
  271. CONST
  272. (* --- The XpkPassRequest() call (library version 4) --- *)
  273.    passChars    =tagBase+50H; (* which chars should be used *)
  274.    passwordBuf  =tagBase+51H; (* buffer to write password to *)
  275.    passBufSize  =tagBase+52H; (* size of password buffer *)
  276.    key16BitPtr  =tagBase+53H; (* pointer to UWORD var for key data *)
  277.    key32BitPtr  =tagBase+54H; (* pointer to ULONG var for key data *)
  278.    pubScreen    =tagBase+55H; (* pointer to struct Screen *)
  279.    passTitle    =tagBase+56H; (* Text shown in Screen title *)
  280.    timeOut      =tagBase+57H; (* Timeout time of requester in seconds *)
  281.  
  282.    (* request position and verify tags (version 4 revision 25) *)
  283.    passWinLeft    =tagBase+58H; (* distance from left screen border *)
  284.    passWinTop    =tagBase+59H; (* distance form top screen border *)
  285.    passWinWidth =tagBase+5AH; (* width of requester window *)
  286.    passWinHeight=tagBase+5BH; (* height of requester window *)
  287.    passCenter   =tagBase+5CH; (* Left and Top are used as center coords *)
  288.    passVerify    =tagBase+5DH; (* force user to verify password *)
  289.  
  290. (* XPKPASSFF defines for  PassChars. Do not use. Use XPKPASSFLG defines *)
  291.   passFF30x39       =0;   (* all numbers      *)
  292.   passFF41x46       =1;   (* chars 'A' to 'F' *)
  293.   passFF61x66       =2;   (* chars 'a' to 'f' *)
  294.   passFF47x5A       =4;   (* chars 'G' to 'Z' *)
  295.   passFF67x7A       =8;   (* chars 'g' to 'z' *)
  296.   passFF20          =16;  (* space character  *)
  297.   passFFSpecial7Bit =32;  (* all chars 0x20 to 0x7E without above defined *)
  298.   passFFC0xDE       =64;  (* upper special chars  *)
  299.   passFFDFxFF       =128; (* lower special chars  *)
  300.   passFFSpecial8Bit =256; (* special 8Bit chars   *) (* all chars 0xA0 to 0xBF *)
  301.  
  302. (* flags for  PassChars, XPKPASSFLG_PRINTABLE is default *)
  303. (*
  304. NUMERIC     :numbers
  305. HEXADECIMAL :hex numbers
  306. ALPHANUMERIC:numbers and letters
  307. INTALPHANUM :numbers and international letters
  308. ASCII7      :7 Bit ASCII
  309. PRINTABLE   :all characters
  310. *)
  311.   passFlgNumeric        =passFF30x39;
  312.   passFlgHexadecimal    =passFF30x39+passFF41x46+passFF61x66;
  313.   passFlgAlphanumeric   =passFlgHexadecimal+passFF47x5A+passFF67x7A;
  314.   passFlgIntAlphanum    =passFlgAlphanumeric+passFFC0xDE+passFFDFxFF;
  315.   passFlgASCII7         =passFlgAlphanumeric+passFFSpecial7Bit;
  316.   passsFLGPrintable     =passFlgIntAlphanum+passFFSpecial7Bit+passFFSpecial8Bit+passFF20;
  317.  
  318. (* The XpkAllocObject() call (library version 4) *)
  319.  
  320. (* use this always with library version >= 4, do NO longer allocate the structures yourself *)
  321.   objFIB        =0; (* XpkFib structure *)
  322.   objPackerinfo =1; (* XpkPackerInfo structure *)
  323.   objMode       =2; (* XpkMode structure *)
  324.   objPackerlist =3; (* XpkPackerList structure *)
  325.  
  326. END XpkMasterD.
  327.